home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)z5.d64 / func.hex$ < prev    next >
Text File  |  2009-01-03  |  327b  |  12 lines
  1. 0010 
  2. 0020 ╞╒╬├ HEX$(N) ├╠╧╙┼─
  3. 0030   ─╔═ HEXDIGIT$ ╧╞ 16, RES$ ╧╞ 4
  4. 0040   HEXDIGIT$:="0123456789ABCDEF"
  5. 0050   HI:=N ─╔╓ 256; LO:=N ═╧─ 256
  6. 0060   RES$:=HEXDIGIT$(HI ─╔╓ 16+1)
  7. 0070   RES$:+HEXDIGIT$(HI ═╧─ 16+1)
  8. 0080   RES$:+HEXDIGIT$(LO ─╔╓ 16+1)
  9. 0090   RES$:+HEXDIGIT$(LO ═╧─ 16+1)
  10. 0100   ╥┼╘╒╥╬ "$"+RES$
  11. 0110 ┼╬─╞╒╬├ HEX$
  12.